'Read the frame corner posiions and move command
'!TITLE "<Title>"
PROGRAM Pro15

COM_ENCOM #1    
TAKEARM  

DEFINT No_pts = 8, P_st = 20                      
DEFINT Z, Ii2, int_k = P_st           
        
DEFSTR Q


MOVE P,J0                 
FLUSH #1                   
PRINT #1,"S"            

'----------------------------------------------------------------------

*L2:

FLUSH #1                             
INPUT #1,P[int_k] 
                                
EXTSPEED 25

DO
PRINT #1,"S"
FLUSH #1
INPUT #1,Q,WTIME=20   'change and see the effect of WTIME=100
IF Q="q" THEN EXIT DO
LOOP

LET Q=" "

IF int_k = (P_st + No_pts - 1) THEN *L1

int_k = int_k + 1

GOTO *L2  


*L1:

APPROACH P, P[P_st] , @E 100, S=60
MOVE L,@5 P[P_st to int_k], S=80 

'FOR Ii2 = P_st TO (P_st + No_Pts - 1)

  'EXTSPEED I[Ii2]
'  MOVE L,@5 P[Ii2], S=I[Ii2]

'NEXT

END
